home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
gnu
/
amiga
/
gcc233.lha
/
geninline
/
genglue.p
< prev
next >
Wrap
Text File
|
1992-08-10
|
374b
|
22 lines
$state = 0;
next_line: while (<STDIN>) {
if (/.even/) {
close (OUTY) if $state == 2;
$state = 1;
}
elsif (/.globl _(\w+)/) {
$state = 2;
if (! open (OUTY, ">$1.s")) {
print STDERR "Can't open $1.s, $!\n";
$state = 0;
next next_line;
}
print OUTY ".text; .even; $_\n";
}
elsif ($state == 2) {
print OUTY "$_";
}
}